home *** CD-ROM | disk | FTP | other *** search
/ Disc Station 14 / Disc Station Vol 14.BIN / heart / bazaar / baz_14.ntc next >
Text File  |  1996-12-25  |  17KB  |  982 lines

  1. ;--------------------------------------------------------------------
  2. ;        " DS Bazzar "    Main Program            ver 0.123
  3. ;--------------------------------------------------------------------
  4.  
  5.  
  6. ;âeâLâXâgâtâîü[âÇé╠É▌ÆΦ ---------------------------------------------
  7.  
  8. @wall                                    ;æSëµû╩Å┴ïÄ
  9. @mouse        0                            ;â}âEâXâJü[â\âï OFF
  10. @frmlay     1,(15,51),60,9,1            ;âüâbâZü[âWâEâCâôâhâDé╠ÆΦï`
  11. @frmlay     2,(36,10),20,30,1            ;
  12.  
  13.  
  14. @frmact     1                            ;âüâbâZü[âWâEâCâôâhâDé╠æIæ≡
  15. @frmclr     1                            ;âüâbâZü[âWâEâCâôâhâDôαé≡Å┴ïÄé╖éΘ
  16.  
  17. @txtreset                                ;âeâLâXâgï@ö\Åëè·ë╗
  18. @brank         0,1                            ;ò╢ÄÜè╘üEìsè╘É▌ÆΦ
  19. @scroll        0                            ;ò╢ÄÜâXâNâìü[âïÉ▌ÆΦ
  20. @txtsize    1,1                            ;ò╢ÄÜâXâNâìü[âïÉ▌ÆΦ
  21.  
  22. @txtwait    0,0,0                        ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  23. @txtdco     1                            ;ò╢ÄÜÅCÅⁿÄwÆΦ
  24.  
  25.  
  26. ;âLâââëâNâ^ü[é╠É▌ÆΦ -------------------------------------------------
  27.  
  28. @chrload    bzz_kao.gcn,10,10            ;âLâââëâNâ^ü[âfü[â^é≡âTü[âtâFâXé╔âìü[âh
  29.  
  30. @chrset        chrbg(0),0,0,0            ;âLâââëâNâ^ü[âAâjâüé≡ÆΦï`
  31. @chrset        chrbg(1),0,0,1
  32. @chrset        chrbg(2),0,0,2
  33. @chrset        chrbg(3),0,0,3
  34.  
  35.  
  36. ;âAâCâRâôé╠É▌ÆΦ -----------------------------------------------------
  37. @iconload    bzz_ico.gcn                    ;âAâCâRâôâfü[â^é≡âTü[âtâFâXé╔âìü[âh
  38. @iconset    iconchr0,1,0,0                ;âAâCâRâôâAâjâüé≡ÆΦï`
  39. @iconset    iconchr1,1,1,1
  40. @iconset    iconchr2,1,2,2
  41. @iconset    iconchr3,1,3,3
  42. @iconset    iconchr4,1,4,4
  43. @iconset    iconchr5,1,5,5
  44. @iconset    iconchr6,1,6,6
  45. @iconset    iconchr7,1,7,7
  46. @iconset    iconchr8,1,8,8
  47. @iconset    iconchr9,1,9,9
  48. @iconset    iconchr10,1,10,10
  49. @iconset    iconchr11,1,11,11
  50. @iconset    iconchr12,1,12,12
  51.  
  52.  
  53. $flag0 = 0
  54. $flag1 = 0
  55. $flag2 = 0
  56.  
  57.  
  58.  
  59. ;@sndload    nokone.mlk
  60. @pcmload     nokone.wlk                    ;érédâtâ@âCâïé≡âìü[âhé╖éΘ
  61.  
  62.  
  63. @effect        2,255,8                        ;êΩÆUæSâpâîâbâgé≡ìòé╔É▌ÆΦé╖éΘ
  64. @wait         5
  65.  
  66.  
  67. @gra         bzz_tit.gcn,(0,0),0
  68. @effect        2,255,10
  69.  
  70. @keywait
  71. @pcm         1
  72.  
  73.  
  74.  
  75. ;âüâCâôüEâXâ^ü[âg -------------------------------------------------
  76. :main_start
  77.  
  78. @effect     2,255,8
  79. @clr         (0,0),80,60,0
  80. @wait         10
  81.  
  82. @snd        2
  83.  
  84.  
  85.  
  86. :end
  87. @mouse         0
  88.  
  89.  
  90.  
  91. @gra         bzz_main.gcn,(0,0),0
  92. @gra         bzz_scr.gcn,(18,0),0
  93.  
  94. @effect        2,255,10
  95.  
  96.  
  97.  
  98.  
  99. ;âüâCâôüEâïü[âv -------------------------------------------------
  100.  
  101. :main_loop
  102.  
  103. @gra         bzz_scr.gcn,(18,0),0
  104.  
  105. ;@print        $rrr
  106. @iconput    iconchr0,(74,1)                ;âAâCâRâôé≡ò\Ī
  107. @iconjump    :program_end
  108.  
  109.  
  110.  
  111.  
  112. @if    $flag0 != 0 :main_lp00
  113.  
  114. ;û`ô¬é╠ë╚öÆ ---------------------------------------------------------
  115. @txtwait    1,1,1                        ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  116. @txtdco     3                            ;ò╢ÄÜÅCÅⁿÄwÆΦ
  117. ;@locate        (0,1)
  118.  
  119. @wait        10
  120.  
  121. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  122.  
  123. écérâoâUü[âïé╠ÉóèEé╓éµéñé▒é╗üI
  124. @keywait
  125. éφé╜é╡é═é▒é╠ÉóèEé╠ê─ôαÉlüAû╝é≡ âJâ`âàâA é╞éóéóé▄é╖üB
  126. @keywait
  127. ìíô·é═üAé▒é▒é┼é╠É╢èêé≡é╜é┴é╒éΦé╞èyé╡é±é┼éóé┴é─é¡é╛é│éóé╦üB
  128. @keywait
  129.  
  130. @frmclr        1
  131. üuécérâoâUü[âïüvéαìíë±é┼éQë±û┌é╠îfì┌é╞é╚éΦé▄é╖é¬üAé═é╢é▀é─
  132. é╠ò√éαéóéτé┴é╡éßéΘé┼é╡éσéñé⌐éτüAé▒é╠ÉóèEé¬é╟é±é╚é╞é▒éδé┼éá
  133. éΘé╠é⌐üAé⌐é±é╜é±é╔Éαû╛é╡é▄é╡éσéñüB
  134. @keywait
  135. @frmclr        1
  136. é▒é╠ÉóèEé≡é╨é╞é▒é╞é┼î╛é┴é─é╡é▄éªé╬üA
  137. üuâ~âjâQü[âÇé¬ùVé╫éΘüvÅΩÅèé┼é╖üB
  138. @keywait
  139. @frmclr        1
  140. é▒é╠ÉóèEé┼é═ûêìåüAżïKû═é╚â~âjâQü[âÇé¬ë╜û{é⌐Ä√ÿ^é│éΩé▄é╖üB
  141. é╗é╡é─éáé╚é╜é═é▒é╠ÉóèEé≡Æ╩é╡é─é╗é╠â~âjâQü[âÇé≡âvâîâCé┼é½
  142. éΘé╠é┼é╖üB
  143.  
  144. @keywait
  145. @frmclr        1
  146.  
  147. ìíîπé═ëµû╩Åπé╠âAâCâRâôé≡âNâèâbâNé╖éΘé▒é╞é┼Éiìsé╡é─éóé½é▄é╖üB
  148. @keywait
  149. éóéδéóéδé╚âRü[âiü[é¬éáéΘé╠é┼î⌐é─é▌é─é╦üB
  150.  
  151. @keywait
  152. @frmclr        1
  153. é┼é═üAéΣé┴é¡éΦé╞é¿èyé╡é▌é¡é╛é│éóücüB
  154. @keywait
  155. @frmclr        1
  156.  
  157. @chrput        chrbg(0),(0,50),1            ;âJâ`âàâA Å┴ïÄ
  158.  
  159.  
  160.  
  161. $flag0 = 1
  162. @txtwait    0,0,0                        ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  163. @txtdco     0                            ;ò╢ÄÜÅCÅⁿÄwÆΦ
  164.  
  165.  
  166. :main_lp00
  167.  
  168. @iconput    iconchr1,(20,17)            ;âAâCâRâôé≡ò\Ī
  169. @comment    (2,0),1,ìíë±é═üAéQû{é╠â~âjâQü[âÇ é¬Ä√ÿ^é│éΩé─éóé▄é╖üB
  170. @iconjump    :game_start
  171.  
  172. @iconput    iconchr3,(48,27)            ;âAâCâRâôé≡ò\Ī
  173. @comment    (2,0),1,èJö¡âXâ^âbâté╠ öMéóâüâbâZü[âWé¬üI âüâôâoü[éαæ¥éªé╜éµüB
  174. @iconjump    :staff_start
  175.  
  176. @if    $flag2 != 0 :j_icon0
  177.  
  178. @iconput    iconchr2,(23,43)            ;âAâCâRâôé≡ò\Ī
  179. @comment    (2,0),1,ìíìåé┼é═ÉVé╡éóôWèJé¬ücüHüI
  180. @iconjump    :otayori_start
  181. @goto        :j_icon1
  182.  
  183. :j_icon0
  184. @iconput    iconchr2,(23,43)            ;âAâCâRâôé≡ò\Ī
  185. @comment    (2,0),1,é¿é╜éµéΦâRü[âiü[æµéQë±üBâXâRâgâëòσÅWéαéáéΦé▄é╖üB
  186. @iconjump    :otayori_start
  187.  
  188. :j_icon1
  189.  
  190.  
  191.  
  192.  
  193. @mouse        1
  194. :program_loop
  195. @goto        :program_loop
  196.  
  197. ;@wait 10
  198. ;@iconclr finish_1
  199. ;@frmclr 1
  200. ;@clr (0,0),80,60,2
  201. ;@wait 10
  202. ;@sndfade 5
  203.  
  204.  
  205. ;â~âjâQü[âÇ éΓéΘ -----------------------------------
  206.  
  207. :game_start
  208. @pcm         1
  209.  
  210. @iconclr    iconchr1
  211. @iconclr    iconchr2
  212. @iconclr    iconchr3
  213.  
  214. @gra         bzz_w0.gcn,(20,5),2
  215.  
  216. @iconput    iconchr4,(22,13)                ;âAâCâRâôé≡ò\Ī
  217. @comment    (2,0),1,üué╜é╩âLâbâY éqé`ébédüv
  218. @iconjump    :tanuki_start                ;é╜é╩âLâbâY
  219.  
  220. @iconput    iconchr5,(22,20)            ;âAâCâRâôé≡ò\Ī
  221. @comment    (2,0),1,üué╒éµé▄é±ÉHéñ âJü[âoâôâNâïüv
  222. @iconjump    :puyoman_start                ;é╒éµé▄é±
  223.  
  224. @iconput    iconchr6,(22,31)            ;âAâCâRâôé≡ò\Ī
  225. @comment    (2,0),1,âüâCâôëµû╩é╔û▀éΦé▄é╖üB
  226. @iconjump    :exit_win00                    ;âüâCâô
  227.  
  228.  
  229. ;@keywait
  230.  
  231. :win_loop00
  232. @goto        :win_loop00
  233.  
  234.  
  235. :exit_win00
  236.  
  237. @iconclr    iconchr4
  238. @iconclr    iconchr5
  239. @iconclr    iconchr6
  240. @goto        :main_loop
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248. ;âXâ^âbâté⌐éτé╠ é╨é╞é▒é╞-----------------------------------
  249.  
  250. :staff_start
  251. @pcm         1
  252.  
  253. @iconclr    iconchr1
  254. @iconclr    iconchr2
  255. @iconclr    iconchr3
  256.  
  257.  
  258. ;é¿éΓé╢é╞é╠ë∩ÿb üiêΩë±é╠é▌üj-------------------------------
  259.  
  260. @if    $flag1 != 0 :staff_start_main
  261.  
  262. @txtwait    1,1,1                            ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  263. @txtdco     3                                ;ò╢ÄÜÅCÅⁿÄwÆΦ
  264.  
  265. @chrput        chrbg(2),(0,50),1                ;é¿éΓé╢ ò\Ī
  266. éµéñüI âJâ`âàâAé╢éßé╦éªé⌐üI
  267. @keywait
  268. @frmclr        1
  269. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  270. é▒é±é╔é┐é═üAânâôâXüB
  271. @keywait
  272. @frmclr        1
  273. @chrput        chrbg(2),(0,50),1                ;é¿éΓé╢ ò\Ī
  274. üuécérâoâUü[âïüvé≡ɺì∞é╡é╜âXâ^âbâté⌐éτüAöMéóâüâbâZü[âWé¬
  275. é╞é╟éóé─éΘé║üB
  276. é╟éñé╛éóüAé▌é─éóé⌐é╦éªé⌐üB
  277. @keywait
  278. @frmclr        1
  279. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  280. éáéΦé¬é╞éñüBé╗éñé│é╣é─éαéτéñéφüB
  281. @keywait
  282. @frmclr        1
  283. @chrput        chrbg(0),(0,50),1                ;âLâââë Å┴ïÄ
  284. $flag1 = 1
  285.  
  286. @txtwait    0,0,0                            ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  287. @txtdco     0                                ;ò╢ÄÜÅCÅⁿÄwÆΦ
  288.  
  289. ;----------------------------------------------------------
  290. :staff_start_main
  291.  
  292.  
  293. @gra         bzz_w1.gcn,(35,10),2
  294.  
  295. @iconput    iconchr9,(36,17)
  296. @iconjump    :staff_1                        ;é¡é┌é╜
  297.  
  298. @iconput    iconchr12,(38,21)
  299. @iconjump    :staff_2                        ;é¿éΩ
  300.  
  301. @iconput    iconchr10,(40,25)
  302. @iconjump    :staff_3                        ;òù
  303.  
  304. @iconput    iconchr11,(38,29)
  305. @iconjump    :staff_4                        ;éléüéôéï
  306.  
  307. @iconput    iconchr3,(36,33)
  308. @iconjump    :staff_5                        ;é▄é┴é½ü[
  309.  
  310.  
  311. @iconput    iconchr6,(38,39)                ;âAâCâRâôé≡ò\Ī
  312. @comment    (2,0),1,âüâCâôëµû╩é╔û▀éΦé▄é╖üB
  313. @iconjump    :exit_win03                        ;âüâCâô
  314.  
  315.  
  316.  
  317.  
  318. ;@keywait
  319.  
  320. :win_loop03
  321. @goto        :win_loop03
  322.  
  323.  
  324. :exit_win03
  325.  
  326. @iconclr    iconchr9
  327. @iconclr    iconchr12
  328. @iconclr    iconchr10
  329. @iconclr    iconchr11
  330. @iconclr    iconchr3
  331. @iconclr    iconchr6
  332.  
  333. @goto        :main_loop
  334.  
  335.  
  336.  
  337. ;é¿é╜éµéΦâRü[âiü[ -----------------------------------
  338.  
  339. :otayori_start
  340. @pcm         1
  341.  
  342. @iconclr    iconchr1
  343. @iconclr    iconchr2
  344. @iconclr    iconchr3
  345.  
  346. @gra         bzz_scr2.gcn,(18,0),2
  347.  
  348.  
  349.  
  350. @txtwait    1,1,1                            ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  351. @txtdco     3                                ;ò╢ÄÜÅCÅⁿÄwÆΦ
  352.  
  353. @if    $flag2 == 0 :mon_talk
  354.  
  355. ;âéâjü[âké╞é╠ë∩ÿb üiÆ╩Åφüj ------------------------------------
  356.  
  357. @chrput        chrbg(3),(0,50),1                ;âéâjü[âk ò\Ī
  358. é▄é╜ë∩é┴é╜éφé╦üB
  359. @keywait
  360. @frmclr        1
  361. @chrput        chrbg(0),(0,50),1                ;âéâjü[âk Å┴ïÄ
  362. @goto    :otayori_start_main
  363.  
  364.  
  365. ;âéâjü[âké╞é╠ë∩ÿb üiô┴ÄΩüj ------------------------------------
  366.  
  367. :mon_talk
  368.  
  369. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  370. é▒é╠ò╙é┼é═î⌐é⌐é»é╚éóÄqé╛éφüB
  371. @keywait
  372. @frmclr        1
  373. @chrput        chrbg(3),(0,50),1                ;âéâjü[âk ò\Ī
  374. é═é╢é▀é▄é╡é─üBé▒é╠ôyÆné╔ùêé─üAÅëé▀é─Åoë∩é┴é╜û║üB
  375. Ääé╠û╝é═âéâjü[âké╞éóéóé▄é╖üB
  376. @keywait
  377. @frmclr        1
  378. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  379. é═é╢é▀é▄é╡é─üAâéâjü[âküB
  380. Ääé╠û╝é═âJâ`âàâAüB
  381. é▒é╠ôyÆné╔ùêé╜üAé╞éóéñé▒é╞é═èOé╠ìæé╠Élé╦üB
  382. @keywait
  383. @frmclr        1
  384. @chrput        chrbg(3),(0,50),1                ;âéâjü[âk ò\Ī
  385. éªéªüBèOé╠ìæé⌐éτé╜é¡é│é±é╠é¿ò╓éΦé≡ë^é±é┼é½é╜é╠üB
  386. é╟éñüAî⌐é─éóé¡üH
  387. @keywait
  388. @frmclr        1
  389. @chrput        chrbg(1),(0,50),1                ;âJâ`âàâA ò\Ī
  390. éáéΦé¬é╞éñüBé╗éñé│é╣é─éαéτéñéφüB
  391. @keywait
  392.  
  393. @frmclr        1
  394. @chrput        chrbg(0),(0,50),1                ;âLâââë Å┴ïÄ
  395.  
  396. $flag2 = 1
  397.  
  398. ;----------------------------------------------------------
  399. :otayori_start_main
  400.  
  401. @txtwait    0,0,0                            ;ò╢ÄÜò\ĪâEâFâCâgÉ▌ÆΦ
  402. @txtdco     0                                ;ò╢ÄÜÅCÅⁿÄwÆΦ
  403.  
  404.  
  405. @gra         bzz_w3.gcn,(39,15),0
  406.  
  407.  
  408. @iconput    iconchr7,(41,28)
  409. @comment    (2,0),1,é¿é